10 PRINT"[144]"
20 POKE53272,23:POKE53281,15:POKE53280,6
30 PRINT"[147]        [205] E N U E A U S W A H L        [160][146]":PRINT:PRINT
40 PRINT"     1[146]  [194]UCHEN          ":PRINT
50 PRINT"     2[146]  [203]ONTEN,[202]OURNAL    ":PRINT
60 PRINT"     3[146]  [214]ORSTEUER/[213][211][212].   ":PRINT
70 PRINT"     4[146]  [199]&[214],[194]ILANZ,[203]ONTENRAHMEN":PRINT
80 PRINT""
90 PRINT"     5[146]  [197]NDE":PRINT""
100 PRINT"[144]          [194]ITTE WAEHLEN [211]IE AUS [146]";
110 GETA$:IFA$=""THEN110
120 IFA$<"1"ORA$>"5"THEN110
130 IFA$="5"THENSYS64760
140 ONVAL(A$)GOTO150,1060,3080,4370
150 PRINTCHR$(14):TI$="000000"
160 FD=0:FX=5:CH=3:FP=1:GOSUB810
170 PRINT"[147]                    [198]INANZBUCHHALTUNG 1 [146]"
180 PRINT"[144]":IFK1=1THENK1=0:GOTO800
190 POKE198,0:PRINT"[144][194]EENDEN   =0[146]":PRINT"[194]UCHEN    =1[146]"
200 GETA$:IFA$=""THEN200
210 IFA$="0"THEN640
220 GOSUB790
230 PRINT"[144][199]EBE LETZTE [194]UCHUNGSNUMMER + 1 EIN":PRINT
240 INPUT"[194]UCHUNGS-[206]R[146]";F:IFF<1ORF>664THENPRINT"[145][145][145]":GOTO240
250 GOSUB790
260 INPUT"[214][211][212] HERAUSZIEHEN[146]  [206][157][157][157]";VS$:IFVS$<>"[202]"ANDVS$<>"[206]"THENPRINT"[145][145][145]":GOTO260
270 IFVS$="[202]"THENGOSUB700
280 GOSUB790
290 PRINT"[194]UCHUNGS-[206]R[146] ";F:PRINT
300 PRINT"[196]ATUM [[212][212].[205][205].[202][202]] [146]";
310 PRINT"[214]ORGANG           [146]";
320 PRINT"[203]ONTONUMMER[146]";
330 PRINT"[199]EGENKONTO [146]";
340 PRINT"[194]ETRAG     [146] ";NT:NT=0
350 INPUT"";A$(1):IFLEN(A$(1))<>8THENPRINT"[145][145]":GOTO350
360 INPUT"";A$(2):A$(2)=LEFT$(A$(2),20)
370 INPUT"";A$(3)
380 INPUT"";A$(4)
390 INPUT"";A$(5):PRINT
400 INPUT"[197]INGABE OK [202]/[206][146]  [202][157][157][157]";X$:IFX$<>"[202]"ANDX$<>"[206]"THENPRINT"[145][145]":GOTO400
410 IFX$="[206]"THENFORI=1TO5:A$(I)="":NEXTI:GOTO250
420 GOSUB850:PRINT
430 IFF=664THEN530
440 INPUT"[205][215][211][212] 7/15/[206] [146]";MW$:IFMW$="7"ORMW$="15"THENGOSUB650:GOTO480
450 IFMW$<>"[206]"ANDMW$<>"7"ANDMW$<>"15"THENPRINT"[145][145]":GOTO440
460 INPUT"[214][211][212]  7/15/[206] [146]";VS$:IFVS$="7"ORVS$="15"THENGOSUB590
470 IFVS$<>"[206]"ANDVS$<>"7"ANDVS$<>"15"THENPRINT"[145][145]":GOTO460
480 INPUT"WEITER BUCHEN [202]/[206][146]  [202][157][157][157]";A$:IFA$<>"[202]"ANDA$<>"[206]"THENPRINT"[145][145][145]":GOTO480
490 IFA$="[202]"THENF=F+1
500 IFA$="[202]"ANDF<665THEN250
510 IFA$="[202]"ANDF>664THEN530
520 GOTO550
530 GOSUB790
540 PRINT"[196]ISKETTE BELEGT":FORK=1TO5000:NEXTK:GOTO170
550 GOSUB790:PRINT"[206]OTIERE DIE LETZTE [194]UCHUNGSNUMMER";F:PRINT
560 PRINT"[196]RUECKE [211]PACE, WENN OK!"
570 GETC$:IFC$<>CHR$(32)THEN570
580 GOTO170
590 F=F+1
600 A$(2)="[214][211][212]"
610 A$(3)="154"
620 A$(5)=STR$(INT((VAL(A$(5))*VAL(VS$)*10+5)/10)/100)
630 GOSUB850:RETURN
640 CLOSE15:CLOSE3:PRINT"[147]":PRINT"[210]ECHENZEIT[146] ";TI$:FORPO=1TO1000:NEXT:GOTO10
650 F=F+1
660 A$(2)="[205][215][211][212]"
670 A$(4)="184"
680 A$(5)=STR$(INT((VAL(A$(5))*VAL(MW$)*10+5)/10)/100)
690 GOSUB850:RETURN
700 GOSUB790:INPUT"7 ODER 15[146]";VS$
710 IFVS$="7"THENVS=6.5420564
720 IFVS$="15"THENVS=13.0434783
730 PRINT:INPUT"[194]RUTTO[146]";BT
740 NT=BT-BT*VS/100:NT=INT(NT*100+.5)/100
750 PRINT:PRINT"[206]ETTO [146] ";NT
760 PRINT"[195]ONTINUE [196]RUECKE [211]PACE[145][146]";
770 GETVS$:IFVS$<>CHR$(32)THEN770
780 RETURN
790 K1=1:GOTO170
800 RETURN
810 GOSUB790:PRINT"[144][204]EGE DIE [198]IBUDATENDISKETTE IN DIE [198]LOPPY"
820 PRINT"[196]RUECKE [211]PACE, WENN OK!"
830 GETA$:IFA$<>CHR$(32)THEN830
840 OPEN15,8,15,"I":OPEN3,8,3,"#":RETURN
850 GOSUB920
860 PRINT#15,"B-P:";CH;FP
870 FORFI=1TOFX:IFA$(FI)=""THENA$(FI)="*"
880 PRINT#CH,A$(FI);CHR$(13);:NEXT
890 PRINT#15,"U2:";CH;FD;FT;FS
900 GOSUB990
910 RETURN
920 IFF<358THENF1=0:F2=22:F3=1:GOTO960
930 IFF>357ANDF<472THENF1=357:F2=20:F3=19:GOTO960
940 IFF>471ANDF<580THENF1=471:F2=19:F3=25:GOTO960
950 IFF>579THENF1=579:F2=18:F3=31
960 FT=INT(((F-F1)-1)/(F2-1))+F3
970 FS=F-F1-(FT-F3)*F2+(FT-F3-1)
980 RETURN
990 INPUT#15,EN,EM$,ET,ES
1000 IFEN=0THENRETURN
1010 GOSUB790:PRINT"[197]RROR ON [196]ISK:":PRINT
1020 PRINTEN:PRINTEM$:PRINTET:PRINTES:PRINT
1030 INPUT"[198]ORTSETZEN [202]/[206]  [202][157][157][157]";X$:IFX$<>"[202]"ANDX$<>"[206]"THENPRINT"[145][145]":GOTO1030
1040 IFX$="[202]"THEN170
1050 GOTO640
1060 POKE53280,6:POKE53281,15
1070 PRINTCHR$(14):TI$="000000"
1080 GOSUB2800
1090 Z1=1:FD=0:FX=5:CH=3:FP=1:X=0:D=0:Y=0
1100 PRINT"[147]                    [198]INANZBUCHHALTUNG 2 [146]"
1110 PRINT"[144]":IFK1=1THENK1=0:GOTO2790
1120 POKE198,0:PRINT"[194]EENDEN=0[146]"
1130 PRINT"[144][202]OURNAL=1[146]":PRINT"[203]ONTO  =2[146]"
1140 GETA$:IFA$=""THENGOTO1140
1150 IFA$="0"THEN2190
1160 IFA$="2"THEN1510
1170 IFA$<>"1"THEN1140
1180 GOSUB2780
1190 INPUT"[193]USDRUCKEN [202]/[206][146]  [206][157][157][157]";A$:BS=0:PRINT:IFA$<>"[202]"ANDA$<>"[206]"THENPRINT"[145][145][145]":GOTO1190
1200 IFA$="[202]"THENPRINT"[144][202]USTIERE DEN [196]RUCKER"
1210 IFA$="[202]"THENPRINT"[196]RUECKE [211]PACE, WENN OK!":PRINT
1220 IFA$="[202]"THENGETC$:IFC$=""THEN1220
1230 INPUT"ERSTE  [194]-[206]R[146]";AE:IFAE<1ORAE>664THENPRINT"[145][145]":GOTO1230
1240 PRINT:INPUT"LETZTE [194]-[206]R[146]";AL:IFAL<1ORAL>664ORAL<AETHENPRINT"[145][145][145]":GOTO1240
1250 GOSUB2780:FORF=AETOAL
1260 GOSUB2850
1270 IF(F/3=INT(F/3))ANDA$="[202]"THENGOSUB2780:GOTO1310
1280 IFF/3=INT(F/3)THENX=1:PRINT:PRINT"[195]ONTINUE DRUECKE [211]PACE[146]"
1290 IFX=1THENGETC$:IFC$<>CHR$(32)THEN1290
1300 IFX=1THENK1=1:X=0:GOSUB2780
1310 Z=F
1320 GOSUB2210
1330 PRINTTAB(-P+4)F;TAB(13)A$(1):PRINTA$(2)
1340 PRINT"[194]UCHUNG "A$(3);" AN "A$(4)
1350 Z=VAL(A$(5))
1360 BS=BS+Z
1370 BS=INT((BS*1000+5)/10)/100
1380 GOSUB2210:GOSUB2650
1390 J=P:B1$=Z$
1400 IFZ<1THENB1$="0"+RIGHT$(A$(5),3)
1410 Z=BS
1420 GOSUB2210:GOSUB2650
1430 PRINTTAB(-J+7)B1$;TAB(-P+17)Z$
1440 IFA$="[202]"THENGOSUB2290
1450 PRINT:NEXTF
1460 PRINT
1470 PRINT"[196]ATENENDE"
1480 PRINT:PRINT"[195]ONTINUE DRUECKE [211]PACE[145][146]";
1490 GETC$:IFC$<>CHR$(32)THENGOTO1490
1500 GOTO1090
1510 GOSUB2780
1520 IFK3=1THENK3=0:PRINT"      [203]ONTO[146] ";""X$"[146]":PRINT:GOTO1620
1530 IFK2=1THENK2=0:PRINT"      [203]ONTO[146] ";""X$"[146]":PRINT:GOTO1680
1540 INPUT"[193]USDRUCKEN [202]/[206][146]  [206][157][157][157]";A$:BS=0:D=0:PRINT:IFA$<>"[202]"ANDA$<>"[206]"THENPRINT"[145][145][145]":GOTO1540
1550 IFA$="[202]"THENGOSUB6450:OPEN2,4,7:PRINT"[144][202]USTIERE DEN [196]RUCKER":PRINT
1560 IFA$="[202]"THENPRINT"[196]RUECKE [211]PACE, WENN OK!":PRINT
1570 IFA$="[202]"THENGETC$:IFC$<>CHR$(32)THEN1570
1580 INPUT"[203]ONTO[146]";X$:PRINT
1590 INPUT"ERSTE  [194]-[206]R[146]";AE:IFAE<1ORAE>664THENPRINT"[145][145]":GOTO1590
1600 PRINT:INPUT"LETZTE [194]-[206]R[146]";AL:IFAL<1ORAL>664ORAL<AETHENPRINT"[145][145][145]":GOTO1600
1610 K3=1:GOTO1510
1620 FORF=AETOAL
1630 GOSUB2850
1640 IFA$="[202]"ANDX=0AND(Z1/10=INT(Z1/10))THENK2=1:AB=1:GOTO1510
1650 IFX=0AND(Z1/10=INT(Z1/10))THENX=1:AB=1:PRINT:PRINT"[195]ONTINUE DRUECKE [211]PACE[146]"
1660 IFX=1ANDAB=1THENGETC$:IFC$<>CHR$(32)THEN1660
1670 IFX=1ANDAB=1THENK2=1:GOTO1510
1680 AB=0:IFA$="[206]"THEN1710
1690 IFY=0THENPRINT#2:PRINT#2:PRINT#2:PRINT#2,"                   [203]ONTO ";X$
1700 IFY=0THENY=1:D=5
1710 IFX$<>A$(3)THEN1860
1720 Z=F
1730 GOSUB2210
1740 J=P
1750 Z=VAL(A$(5))
1760 BS=BS-Z
1770 BS=INT((BS*1000+5)/10)/100
1780 GOSUB2210:GOSUB2650
1790 IFZ<1THENZ$="0"+RIGHT$(B$(I),3)
1800 PRINTTAB(-J+4)F;TAB(6)A$(4);TAB(-P+15)Z$;TAB(20)"[211]":Z1=Z1+1:X=0
1810 IFA$="[206]"THEN1860
1820 PRINT#2,F;:PRINT#2,CHR$(16)"09"+A$(1);:PRINT#2,CHR$(16)"19"+A$(2);
1830 PRINT#2,CHR$(16)"42"+A$(3);:PRINT#2,CHR$(16)"49AN "+A$(4);:Z=ABS(VAL(A$(5)))
1840 GOSUB2440:D=D+1
1850 PRINT#2,CHR$(16)BD$;:Z=ABS(BS):GOSUB2550:PRINT#2,CHR$(16)B2$:GOSUB2200
1860 IFX$<>A$(4)THEN2010
1870 Z=F
1880 GOSUB2210
1890 J=P
1900 Z=VAL(A$(5))
1910 BS=BS+Z
1920 BS=INT((BS*1000+5)/10)/100
1930 GOSUB2210:GOSUB2650
1940 IFZ<1THENZ$="0"+RIGHT$(A$(5),3)
1950 PRINTTAB(-J+4)F;TAB(6)A$(3);TAB(-P+15)Z$;TAB(20)"[200]":Z1=Z1+1:X=0
1960 IFA$="[206]"THEN2010
1970 PRINT#2,F;:PRINT#2,CHR$(16)"09";A$(1);:PRINT#2,CHR$(16)"19";A$(2);
1980 PRINT#2,CHR$(16)"42";A$(3);:PRINT#2,CHR$(16)"49AN ";A$(4);:Z=ABS(VAL(A$(5)))
1990 GOSUB2440:D=D+1
2000 PRINT#2,CHR$(16)BD$;:Z=ABS(BS):GOSUB2550:PRINT#2,CHR$(16)B2$:GOSUB2200
2010 NEXTF:FORI=1TO5:PRINT#2:NEXT
2020 INPUT"[206]EUE [196]ISKETTE [202]/[206][146]  [206][157][157][157]";C$:PRINT:IFC$<>"[202]"ANDC$<>"[206]"THENPRINT"[145][145][145][145]":GOTO2020
2030 IFC$="[202]"THENCLOSE15:CLOSE3:GOSUB2800
2040 IFC$="[202]"THENGOSUB2780:GOTO1590
2050 IFBS<0THENBS=-BS:GOTO2090
2060 IFBS>0THENGOTO2130
2070 PRINT"[211]ALDO"TAB(15)"0.00"
2080 GOTO2160
2090 Z=BS
2100 GOSUB2210:GOSUB2650
2110 PRINT"[211]ALDO"TAB(-P+15)Z$;TAB(20)"[211]"
2120 GOTO2160
2130 Z=BS
2140 GOSUB2210:GOSUB2650
2150 PRINT"[211]ALDO"TAB(-P+15)Z$;TAB(20)"[200]"
2160 PRINT"[196]ATENENDE":PRINT"[195]ONTINUE DRUECKE [211]PACE[145][146]";
2170 GETC$:IFC$<>CHR$(32)THEN2170
2180 CLOSE2:GOTO1090
2190 CLOSE15:CLOSE3:PRINT"[147]":PRINT"[210]ECHENZEIT[146] ";TI$:FORPO=1TO1000:NEXT:GOTO10
2200 IFD=69THENPRINT#2:PRINT#2:PRINT#2:D=0:RETURN
2210 IFZ>99999.99THENP=6:GOTO2280
2220 IFZ>9999.99THENP=5:GOTO2280
2230 IFZ>999.99THENP=4:GOTO2280
2240 IFZ>99.99THENP=3:GOTO2280
2250 IFZ>9.99THENP=2:GOTO2280
2260 IFZ>0.99THENP=1:GOTO2280
2270 P=0
2280 RETURN
2290 GOSUB6450:OPEN2,4,7
2300 IFD=0THENPRINT#2:PRINT#2:PRINT#2:PRINT#2,"                   [202]OURNAL"
2310 PRINT#2:PRINT#2,F;
2320 PRINT#2,CHR$(16)"11";:PRINT#2,A$(1);
2330 PRINT#2,CHR$(16)"22";:PRINT#2,A$(2);
2340 PRINT#2,CHR$(16)"42";:PRINT#2,A$(3);
2350 PRINT#2,CHR$(16)"49AN";
2360 PRINT#2,CHR$(16)"52";:PRINT#2,A$(4);
2370 Z=VAL(A$(5)):GOSUB2440
2380 PRINT#2,CHR$(16)BD$;
2390 Z=BS:GOSUB2550
2400 PRINT#2,CHR$(16)B2$
2410 D=D+1:IFD=69THEND=0:PRINT#2:PRINT#2:PRINT#2
2420 CLOSE2
2430 RETURN
2440 IFZ>99999.99THENP$="58":GOTO2510
2450 IFZ>9999.99THENP$="59":GOTO2510
2460 IFZ>999.99THENP$="60":GOTO2510
2470 IFZ>99.99THENP$="61":GOTO2510
2480 IFZ>9.99THENP$="62":GOTO2510
2490 IFZ>0.99THENP$="63":GOTO2510
2500 P$="63"
2510 IFZ<1THENBD$="640"+RIGHT$(B$(I),3):RETURN
2520 GOSUB2650
2530 BD$=P$+Z$
2540 RETURN
2550 IFZ>99999.99THENP$="70":GOTO2620
2560 IFZ>9999.99THENP$="71":GOTO2620
2570 IFZ>999.99THENP$="72":GOTO2620
2580 IFZ>99.99THENP$="73":GOTO2620
2590 IFZ>9.99THENP$="74":GOTO2620
2600 IFZ>0.99THENP$="75":GOTO2620
2610 P$="76"
2620 GOSUB2650
2630 B2$=P$+Z$
2640 RETURN
2650 D1$=STR$(Z)
2660 D2$=RIGHT$(D1$,3)
2670 D3$=LEFT$(D2$,1)
2680 IFD3$="."THEN2760
2690 D4$=RIGHT$(D1$,2)
2700 D5$=LEFT$(D4$,1)
2710 IFD5$="."THEN2740
2720 Z$=D1$+".00"
2730 GOTO2770
2740 Z$=D1$+"0"
2750 GOTO2770
2760 Z$=D1$
2770 RETURN
2780 K1=1:GOTO1100
2790 RETURN
2800 GOSUB2780:PRINT"[144][204]EGE DIE [198]IBUDATENDISKETTE IN DIE [198]LOPPY"
2810 PRINT"[196]RUECKE [211]PACE, WENN OK!"
2820 GETAA$:IFAA$<>CHR$(32)THEN2820
2830 OPEN15,8,15,"I":OPEN3,8,3,"#":RETURN
2840 PRINT"[147]"
2850 GOSUB2940
2860 PRINT#15,"U1:";CH;FD;FT;FS
2870 PRINT#15,"B-P:";CH;FP
2880 GOSUB3010
2890 FORFI=1TOFX
2900 INPUT#CH,A$(FI)
2910 IF( ST AND 2 )THEN2900
2920 NEXTFI
2930 RETURN
2940 IFF<358THENF1=0:F2=22:F3=1:GOTO2980
2950 IFF>357ANDF<472THENF1=357:F2=20:F3=19:GOTO2980
2960 IFF>471ANDF<580THENF1=471:F2=19:F3=25:GOTO2980
2970 IFF>579THENF1=579:F2=18:F3=31
2980 FT=INT(((F-F1)-1)/(F2-1))+F3
2990 FS=F-F1-(FT-F3)*F2+(FT-F3-1)
3000 RETURN
3010 INPUT#15,EN,EM$,ET,ES
3020 IFEN=0THENRETURN
3030 GOSUB2780:PRINT"[197]RROR ON [196]ISK:":PRINT
3040 PRINTEN:PRINTEM$:PRINTET:PRINTES:PRINT
3050 INPUT"[198]ORTSETZEN [202]/[206]  [202][157][157][157]";A$:IFA$<>"[202]"ANDA$<>"[206]"THENPRINT"[145][145]":GOTO3050
3060 IFA$="[206]"THEN2190
3070 GOTO1090
3080 POKE53280,6:POKE53281,15:PRINTCHR$(14):TI$="000000"
3090 GOSUB4090:FD=0:FX=5:CH=3:FP=1
3100 PRINT"[147]                    [198]INANZBUCHHALTUNG 3 [146]"
3110 IFK1=1THENK1=0:GOTO4080
3120 POKE198,0:PRINT"[144][194]EENDEN   =0[146]"
3130 PRINT"[213][211][212]-[193]NM.  =1[146]"
3140 GETA$:IFA$=""THEN3140
3150 IFA$="0"THEN3820
3160 IFA$<>"1"THEN3140
3170 GOSUB4070
3180 PRINT"JAEHRL. =0[146]"
3190 PRINT"QUARTAL =1[146]"
3200 PRINT"MONATL. =2[146]"
3210 GETA$:IFA$=""THEN3210
3220 B=VAL(A$):IFB<>0ANDB<>1ANDB<>2THEN3210
3230 IFB=2THENPRINT:INPUT"[205]ONAT Z.B. 07[146]";M$:GOTO3310
3240 IFB=1THENPRINT:INPUT"[209]UARTAL Z.B. [201][201][146]";Q$:GOTO3260
3250 GOTO3310
3260 IFQ$="[201]"THENM$(0)="01":M$(1)="02":M$(2)="03":GOTO3310
3270 IFQ$="[201][201]"THENM$(0)="04":M$(1)="05":M$(2)="06":GOTO3310
3280 IFQ$="[201][201][201]"THENM$(0)="07":M$(1)="08":M$(2)="09":GOTO3310
3290 IFQ$="[201][214]"THENM$(0)="10":M$(1)="11":M$(2)="12"
3300 PRINT"[145][145][145]":GOTO3240
3310 BS(1)=0:BS(2)=0:BS(3)=0:BS(4)=0:RESTORE
3320 PRINT
3330 INPUT"ERSTE  [194]-[206]R[146]";AE:IFAE<1ORAE>664THENPRINT"[145][145]":GOTO3330
3340 PRINT:INPUT"LETZTE [194]-[206]R[146]";AL:IFAL<1ORAL>664ORAL<AETHENPRINT"[145][145][145]":GOTO3340
3350 GOSUB4070
3360 FORF=AETOAL
3370 GOSUB4140
3380 A$(1)=MID$(A$(1),4,2)
3390 A$(3)=LEFT$(A$(3),3)
3400 A$(4)=LEFT$(A$(4),3)
3410 IFB=0THEN3470
3420 IFB<>2THEN3450
3430 IFA$(1)=M$THEN3470
3440 GOTO3630
3450 IFA$(1)=M$(0)ORA$(1)=M$(1)ORA$(1)=M$(2)THEN3470
3460 GOTO3630
3470 R=0:IFA$(3)="154"THENR=1:GOTO3520
3480 IFA$(3)="184"THENR=2:GOTO3520
3490 IFA$(3)="800"THENR=3:GOTO3520
3500 IFA$(3)="890"ORA$(3)="891"THENR=4:GOTO3520
3510 IFR=0THEN3550
3520 Z=VAL(A$(5))
3530 BS(R)=BS(R)-Z
3540 BS(R)=INT((BS(R)*1000+5)/10)/100
3550 R=0:IFA$(4)="154"THENR=1:GOTO3600
3560 IFA$(4)="184"THENR=2:GOTO3600
3570 IFA$(4)="800"THENR=3:GOTO3600
3580 IFA$(4)="890"ORA$(4)="891"THENR=4:GOTO3600
3590 IFR=0THEN3630
3600 Z=VAL(A$(5))
3610 BS(R)=BS(R)+Z
3620 BS(R)=INT((BS(R)*1000+5)/10)/100
3630 NEXTF
3640 INPUT"[206]EUE [196]ISKETTE [202]/[206][146]  [206][157][157][157]";A$:IFA$<>"[202]"ANDA$<>"[206]"THENPRINT"[145][145][145]":GOTO3640
3650 IFA$="[202]"THENCLOSE15:CLOSE3:GOSUB4090
3660 IFA$="[202]"THENGOSUB4070:GOTO3330
3670 GOSUB4070
3680 FORR=1TO4
3690 IFBS(R)<0THENX$="-":BS(R)=-BS(R)
3700 Z=BS(R)
3710 GOSUB3830
3720 U$(1)="[214]ORSTEUER":U$(2)="[205]EHRWERTSTEUER":U$(3)="[197]RLOESE"
3730 U$(4)="[199]UTSCHRIFTEN/[211]KONTI"
3740 PRINTU$(R);
3750 IFX$="-"THENX$="+":PRINTTAB(10)"-";
3760 PRINTTAB(-P+30)Z$
3770 PRINT
3780 NEXTR
3790 PRINT"[195]ONTINUE DRUECKE [211]PACE[146]"
3800 GETA$:IFA$<>CHR$(32)THEN3800
3810 GOTO3100
3820 CLOSE15:CLOSE3:PRINT"[147]":PRINT"[210]ECHENZEIT[146] ";TI$:FORPO=1TO1000:NEXT:GOTO10
3830 IFZ>99999.99THENP=6:GOTO3900
3840 IFZ>9999.99THENP=5:GOTO3900
3850 IFZ>999.99THENP=4:GOTO3900
3860 IFZ>99.99THENP=3:GOTO3900
3870 IFZ>9.99THENP=2:GOTO3900
3880 IFZ>0.99THENP=1:GOTO3900
3890 P=0
3900 GOSUB3920
3910 RETURN
3920 D1$=STR$(Z)
3930 D2$=RIGHT$(D1$,3)
3940 D3$=LEFT$(D2$,1)
3950 IFD3$="."THEN4030
3960 D4$=RIGHT$(D1$,2)
3970 D5$=LEFT$(D4$,1)
3980 IFD5$="."THEN4010
3990 Z$=D1$+".00"
4000 GOTO4040
4010 Z$=D1$+"0"
4020 GOTO4040
4030 Z$=D1$
4040 IFZ<1THENZ$="0"+MID$(Z$,2,3)
4050 IFZ=0THENP=0:Z$="0.00"
4060 RETURN
4070 K1=1:GOTO3100
4080 RETURN
4090 GOSUB4070:PRINT"[144][204]EGE DIE [198]IBUDATENDISKETTE IN DIE [198]LOPPY"
4100 PRINT"[196]RUECKE [211]PACE, WENN OK!"
4110 GETA$:IFA$<>CHR$(32)THEN4110
4120 OPEN15,8,15,"I":OPEN3,8,3,"#":RETURN
4130 PRINT"[147]"
4140 GOSUB4230
4150 PRINT#15,"U1:";CH;FD;FT;FS
4160 PRINT#15,"B-P:";CH;FP
4170 GOSUB4300
4180 FORFI=1TOFX
4190 INPUT#CH,A$(FI)
4200 IF( ST AND 2 )THEN4190
4210 NEXTFI
4220 RETURN
4230 IFF<358THENF1=0:F2=22:F3=1:GOTO4270
4240 IFF>357ANDF<472THENF1=357:F2=20:F3=19:GOTO4270
4250 IFF>471ANDF<580THENF1=471:F2=19:F3=25:GOTO4270
4260 IFF>579THENF1=579:F2=18:F3=31
4270 FT=INT(((F-F1)-1)/(F2-1))+F3
4280 FS=F-F1-(FT-F3)*F2+(FT-F3-1)
4290 RETURN
4300 INPUT#15,EN,EM$,ET,ES
4310 IFEN=0THENRETURN
4320 GOSUB4070:PRINT"[197]RROR ON [196]ISK:":PRINT
4330 PRINTEN:PRINTEM$:PRINTET:PRINTES:PRINT
4340 INPUT"[198]ORTSETZEN [202]/[206]  [202][157][157][157]";A$:IFA$<>"[202]"ANDA$<>"[206]"THENPRINT"[145][145]":GOTO4340
4350 IFA$="[202]"THEN3100
4360 GOTO3820
4370 POKE53280,6:POKE53281,15
4380 PRINTCHR$(14)
4390 TI$="000000":GOSUB6170
4400 CLOSE15:CLOSE3:CLR:OPEN15,8,15,"I":OPEN3,8,3,"#":FD=0:FX=5:CH=3:FP=1
4410 PRINT"[147]                    [198]INANZBUCHHALTUNG 4 [146]"
4420 IFK1=1THENK1=0:GOTO6160
4430 PRINT"[144][194]EENDEN=0[146]"
4440 PRINT"[199]+[214]    =1[146]":PRINT"[194]ILANZ =2[146]":PRINT"[203]-[210]    =3[146]"
4450 GETA$:IFA$=""THEN4450
4460 A=VAL(A$):IFA=0THEN5690
4470 IFA<>1ANDA<>2ANDA<>3THEN4450
4480 GOSUB6150
4490 PRINT"[144][202]USTIERE DEN [196]RUCKER":PRINT:PRINT"[196]RUECKE [211]PACE, WENN OK!"
4500 GETA$:IFA$<>CHR$(32)THEN4500
4510 GOSUB6150
4520 READAK
4530 DIMKO$(AK-1),KT$(AK-1)
4540 DIMSA(AK-1)
4550 FORI=0TOAK-1
4560 READKO$(I)
4570 NEXTI
4580 FORI=0TOAK-1
4590 READKT$(I)
4600 NEXTI
4610 IFA=3THEN6070
4620 GOSUB6150:INPUT"ERSTE  [194]-[206]R[146]";AE:IFAE<1ORAE>664THENPRINT"[145][145]":GOTO4620
4630 PRINT:INPUT"LETZTE [194]-[206]R[146]";AL:IFAL<AEORAL>664ORAL<1THENPRINT"[145][145][145]":GOTO4630
4640 GOSUB6150:FORF=AETOAL
4650 GOSUB6220
4660 A$(3)=LEFT$(A$(3),3)
4670 A$(4)=LEFT$(A$(4),3)
4680 FORI=0TOAK-1
4690 IFKO$(I)<>A$(3)THENGOTO4720
4700 SA(I)=SA(I)-VAL(A$(5))
4710 SA(I)=INT((SA(I)*1000+5)/10)/100
4720 IFKO$(I)<>A$(4)THENGOTO4750
4730 SA(I)=SA(I)+VAL(A$(5))
4740 SA(I)=INT((SA(I)*1000+5)/10)/100
4750 NEXTI
4760 NEXTF
4770 GOSUB6150:INPUT"[206]EUE [196]ISKETTE [202]/[206][146]  [206][157][157][157]";A$:IFA$<>"[206]"ANDA$<>"[202]"THEN4770
4780 IFA$="[202]"THENCLOSE15:CLOSE3:GOSUB6170:GOTO4620
4790 GOSUB6150
4800 FORI=0TOAK-1
4810 Z$=KO$(I)
4820 Z$=LEFT$(Z$,1)
4830 IFZ$="2"ORZ$="3"ORZ$="4"ORZ$="8"THENGOTO4850
4840 GOTO4980
4850 IFSA(I)<0THENSA(I)=-SA(I):GOTO4930
4860 IFSA(I)=0THENGOTO4980
4870 IFA=2THEN4900
4880 Z=SA(I)
4890 S$="78[200]":GOSUB5700
4900 BG=BG+SA(I)
4910 BG=INT((BG*1000+5)/10)/100
4920 GOTO4980
4930 IFA=2THEN4960
4940 Z=SA(I)
4950 S$="78[211]":GOSUB5700
4960 BG=BG-SA(I)
4970 BG=INT((BG*1000+5)/10)/100
4980 NEXTI
4990 IFA=2THEN5080
5000 IFBG<0THEN5040
5010 Z=BG
5020 GOSUB6020
5030 GOTO5060
5040 Z=-BG
5050 GOSUB6020
5060 IFA=2THEN5080
5070 GOTO5270
5080 GOSUB6150
5090 IFBG>=0THENSA(34)=BG
5100 IFBG<0THENSA(35)=BG
5110 FORI=0TOAK-1
5120 IFI=96THEN5250
5130 Z$=KO$(I)
5140 Z$=LEFT$(Z$,1)
5150 IFZ$="2"ORZ$="3"ORZ$="4"ORZ$="8"THENGOTO5250
5160 IFSA(I)=0THENGOTO5250
5170 IFSA(I)<0THENSA(I)=-SA(I):GOTO5230
5180 Z=SA(I)
5190 S$="78[208]":GOSUB5700
5200 BS=BS+SA(I)
5210 BS=INT((BS*1000+5)/10)/100
5220 GOTO5250
5230 Z=SA(I)
5240 S$="78[193]":GOSUB5700
5250 NEXTI
5260 Z=BS:GOSUB6050
5270 GOTO4400
5280 DATA98
5290 DATA"000","001","002","010","020","021","022","030","031","032","040","050","060"
5300 DATA"070","080","081","085","090","091","092","093","100","101","102","110"
5310 DATA"111","120","121","130","131","135","136","137","140","141","150","154","160"
5320 DATA"164","170","180","183","184","190","200","210","220","230","240","250"
5330 DATA"300","370","371","372","373","374","380","381","382","390","391"
5340 DATA"400","401","402","403","410","420","421","422","423","430","431","432","440"
5350 DATA"441","442","450","451","452","460","470"
5360 DATA"471","480","481","482","483","490","491","800"
5370 DATA"890","891","900","910","930","940","941","950","951"
5380 DATA"[214]ERWALTUNGSGEBAEUDE","[214]ERKAUFSGEBAEUDE","[204]AGERHAEUSER","[213]NBEBAUTE [199]RUNDSTUECKE"
5390 DATA"[194]UEROMASCHINEN","[208]ERSONEN- UND [204]ASTENAUFZUEGE","[198]AHRZEUGE","[204]ADENEINRICHTUNGEN"
5400 DATA"[194]UEROEINRICHTUNGEN","[194]UEROMASCHINEN","[203]ONZESSIONEN","[194]ETEILIGUNGEN"
5410 DATA"[198]ORDERUNGEN AUS [196]ARLEHEN","[200]YPOTHEKENSCHULDEN","[197]IGENKAPITAL"
5420 DATA"[194]ETEILIGUNGSKAPITAL"
5430 DATA"[210]UECKLAGEN FUER [206]EUBAUTEN","[215]ERTBERICHTIGUNGEN","[210]UECKSTELLUNGEN"
5440 DATA"[193]KTIVE [208]OSTEN DER [202]AHRESABGRENZUNG","[208]ASSIVE [208]OSTEN DER [202]AHRESABGRENZUNG"
5450 DATA"[200]AUPTKASSE","[198]ILIALKASSE","[208]ORTOKASSE","[208]OSTSCHECKKONTO"
5460 DATA"[199]IROKONTO [204]ANDESZENTRALBANK","[194]ANK","[211]PARKASSE","[194]ESITZWECHSEL","[211]CHECKS"
5470 DATA"[211]CHULDSCHEINE","[193]KTIEN","[208]FANDBRIEFE","[198]ORDERUNGEN AN [203]UNDEN"
5480 DATA"[218]WEIFELHAFTE [198]ORDERUNGEN","[211]ONSTIGE [198]ORDERUNGEN","[214]ORSTEUER"
5490 DATA"[214]ERBINDLICHKEITEN AUS [215]ARENLIEFERUNGEN"
5500 DATA"[214]ERBINDLICHKEITEN AUS [196]IENSTLEISTUNGEN","[211]CHULDWECHSEL"
5510 DATA"[211]ONSTIGE [214]ERBINDLICHKEITEN","[206]OCH ABZUFUEHRENDE [193]BGABEN","[213]MSATZSTEUER"
5520 DATA"[208]RIVATKONTEN","[193]USSERORDENTLICHE [193]UFWENDUNGEN","[193]USSERORDENTLICHE [197]RTRAEGE"
5530 DATA"[200]AUS- UND [199]RUNDSTUECKSAUFWENDUNGEN","[218]INSAUFWENDUNGEN","[218]INSERTRAEGE"
5540 DATA"[215]EITERE [193]BGRENZUNGSKONTEN","[215]ARENEINKAEUFE","[198]RACHTEN BEI [194]EZUG"
5550 DATA"[214]ERPACKUNGSKOSTEN","[204]AGERGELD","[214]ERSICHERUNGSKOSTEN"
5560 DATA"[218]OELLE UND [203]URSDIFFERENZEN","[211]KONTI","[210]ABATTE","[211]ONSTIGE [208]REISNACHLAESSE"
5570 DATA"[203]OMMISSIONSWARE","[203]OMMITTENT","[199]EHAELTER","[204]OEHNE","[211]OZIALE [193]UFWENDUNGEN"
5580 DATA"[213]NTERNEHMERLOHN","[205]IETE","[200]EIZUNG","[194]ELEUCHTUNG","[210]EINIGUNG","[210]EPARATUREN"
5590 DATA"[199]EWERBESTEUER","[194]EITRAG ZUR [201][200][203]","[211]ONSTIGE [211]TEUERN"
5600 DATA"[203]OSTEN FUER [218]EITUNGSANZEIGEN","[203]OSTEN FUER [215]ERBEBLAETTER"
5610 DATA"[203]OSTEN FUER [204]EUCHTREKLAME","[203]FZ [211]TEUERN/[214]ERS.","[203]FZ [210]EPARATUR."
5620 DATA"[212]REIBSTOFF/[207]EL","[218]INSEN","[194]EWIRTUNGSKOSTEN"
5630 DATA"[214]ERPFLEGUNGSMEHRAUFW.","[206]EBENKOSTEN DES [199]ELDVERKEHRS","[194]UEROMATERIAL"
5640 DATA"[208]OSTKOSTEN","[198]ERNSPRECHKOSTEN","[198]ACHBUECHER"
5650 DATA"[211]ONSTIGE [197]INZELKOSTEN","[215]ARENVERKAEUFE","[206]ACHTRAEGLICH ERTEILTE [199]UTSCHRIFTEN"
5660 DATA"[203]UNDENSKONTI","[193]BGRENZUNGSSAMMELKONTO","[205]ONATS [199]&[214]-[203]ONTO"
5670 DATA"[199]EWINN UND [214]ERLUSTKONTO","[194]ILANZGEWINN","[194]ILANZVERLUST"
5680 DATA"[197]ROEFFNUNGSBILANZ","[211]CHLUSSBILANZKONTO"
5690 CLOSE15:CLOSE3:PRINT"[147]":PRINT"[210]ECHENZEIT[146] ";TI$:FORPO=1TO1000:NEXT:GOTO10
5700 IFK5=0THENGOSUB6450:OPEN2,4,7:PRINT#2:PRINT#2:PRINT#2
5710 IFK5=0ANDA=1THENPRINT#2,"                   [199]EWINN- UND [214]ERLUSTRECHNUNG"
5720 IFK5=0ANDA=1THENPRINT#2:K5=5
5730 IFK5=0ANDA=2THENPRINT#2,"                   [194]ILANZ":PRINT#2:K5=5
5740 IFSA(I)<>0THENGOSUB5790
5750 PRINT#2,KO$(I);:PRINT#2,CHR$(16)"06";KT$(I);:PRINT#2,CHR$(16)X$;
5760 PRINT#2,CHR$(16)S$
5770 K5=K5+1:IFK5=69THENPRINT#2:PRINT#2:PRINT#2:CLOSE2:K5=0
5780 RETURN
5790 IFZ>99999.99THENP$="65":GOTO5850
5800 IFZ>9999.99THENP$="66":GOTO5850
5810 IFZ>999.99THENP$="67":GOTO5850
5820 IFZ>99.99THENP$="68":GOTO5850
5830 IFZ>9.99THENP$="69":GOTO5850
5840 P$="70"
5850 GOSUB5880
5860 X$=P$+Z$
5870 RETURN
5880 D1$=STR$(Z)
5890 D2$=RIGHT$(D1$,3)
5900 D3$=LEFT$(D2$,1)
5910 IFD3$="."THEN5990
5920 D4$=RIGHT$(D1$,2)
5930 D5$=LEFT$(D4$,1)
5940 IFD5$="."THEN5970
5950 Z$=D1$+".00"
5960 GOTO6000
5970 Z$=D1$+"0"
5980 GOTO6000
5990 Z$=D1$
6000 IFZ<1.00THENZ$=" 0"+RIGHT$(Z$,LEN(Z$)-1)
6010 RETURN
6020 IFBG>=0THENPRINT#2:PRINT#2,"940   [194]ILANZGEWINN";:GOSUB5790:PRINT#2,CHR$(16)X$
6030 IFBG<0THENPRINT#2:PRINT#2,"941   [194]ILANZVERLUST";:GOSUB5790:PRINT#2,CHR$(16)X$
6040 RETURN
6050 PRINT#2:PRINT#2,"[194]ILANZSUMME";:GOSUB5790:PRINT#2,CHR$(16)X$
6060 FORI=1TO5:PRINT#2:NEXT:RETURN
6070 GOSUB6450:OPEN2,4,7
6080 PRINT#2:PRINT#2:PRINT#2:PRINT#2,"                   [203]ONTENRAHMEN":PRINT#2
6090 FORI=0TOAK-1
6100 PRINT#2,KO$(I);:PRINT#2,CHR$(16)"11";:PRINT#2,KT$(I)
6110 IFI=63THENPRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2
6120 NEXTI:FORI=1TO5:PRINT#2:NEXT
6130 CLOSE2
6140 GOTO4400
6150 K1=1:GOTO4410
6160 RETURN
6170 GOSUB6150:PRINT"[144][204]EGE DIE [198]IBUDATENDISKETTE IN DIE [198]LOPPY"
6180 PRINT"[196]RUECKE [211]PACE, WENN OK!"
6190 GETC$:IFC$<>CHR$(32)THEN6190
6200 OPEN15,8,15,"I":OPEN3,8,3,"#":RETURN
6210 PRINT"[147]"
6220 GOSUB6310
6230 PRINT#15,"U1:";CH;FD;FT;FS
6240 PRINT#15,"B-P:";CH;FP
6250 GOSUB6380
6260 FORFI=1TOFX
6270 INPUT#CH,A$(FI)
6280 IF( ST AND 2 )THEN6270
6290 NEXTFI
6300 RETURN
6310 IFF<358THENF1=0:F2=22:F3=1:GOTO6350
6320 IFF>357ANDF<472THENF1=357:F2=20:F3=19:GOTO6350
6330 IFF>471ANDF<580THENF1=471:F2=19:F3=25:GOTO6350
6340 IFF>579THENF1=579:F2=18:F3=31
6350 FT=INT(((F-F1)-1)/(F2-1))+F3
6360 FS=F-F1-(FT-F3)*F2+(FT-F3-1)
6370 RETURN
6380 INPUT#15,EN,EM$,ET,ES
6390 IFEN=0THENRETURN
6400 GOSUB6150:PRINT"[197]RROR ON [196]ISK:":PRINT
6410 PRINTEN:PRINTEM$:PRINTET:PRINTES:PRINT
6420 INPUT"[198]ORTSETZEN [202]/[206]  [202][157][157][157]";A$:IFA$<>"[202]"ANDA$<>"[206]"THENPRINT"[145][145]":GOTO6420
6430 IFA$="[202]"THEN4400
6440 GOTO5690
6450 A=PEEK(768)
6460 OPEN1,4
6470 POKE768,185
6480 PRINT#1:CLOSE1
6490 POKE768,A
6500 IFST<>-128THENRETURN
6510 PRINT"DRUCKER IST NICHT EINGESCHALTET!"
6520 POKE198,0:WAIT198,1:POKE198,0:GOTO6450